home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / ReadINI.rexx < prev    next >
OS/2 REXX Batch file  |  1992-06-15  |  369b  |  24 lines
  1. /*
  2.     This genie parses the PPage.ini file for a specific object type
  3. */
  4.  
  5. parse arg type, filename
  6.  
  7. if filename = '' then filename = "s:ppage.ini"
  8.  
  9. type = upper(type)
  10.  
  11. if ~open(file, filename, r) then return("")
  12. rstring = ''
  13.  
  14. do while ~eof(file)
  15.  
  16.     line = upper(readln(file))
  17.     if word(line, 1) = type then rstring = subword(line, 2)
  18. end
  19.  
  20. call close(file)
  21. return rstring
  22.  
  23.  
  24.